From 1df33950afcc72f797f8369591b2989012cbce86 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Mon, 19 Jul 2004 12:31:24 +0000 Subject: [PATCH] (dired-file-set-difference): Don't use `caddr'. --- lisp/dired-aux.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 9b401b7e41c..6c1a9ad36f0 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -163,8 +163,8 @@ condition. Two file items are considered to match if they are equal (unless (let ((list list2)) (while (and list (not (let* ((file2 (car list)) - (fa1 (caddr file1)) - (fa2 (caddr file2)) + (fa1 (car (cddr file1))) + (fa2 (car (cddr file2))) (size1 (nth 7 fa1)) (size2 (nth 7 fa2)) (mtime1 (float-time (nth 5 fa1))) -- 2.30.2